home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / BAL.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  1.5 KB  |  61 lines
  1. ******************************** (BAL.PRG)
  2. SET EXACT ON
  3. CLEAR
  4. USE CUST INDEX ACCT
  5. DO WHILE .NOT. EOF()
  6.    CLEAR
  7.    @ 19,1 SAY 'Want to sum a balance?  '
  8.    STORE ' ' TO OPTION
  9.    ?
  10.    WAIT ' ?  ' TO OPTION
  11.    IF OPTION <> 'Y'
  12.       RETURN
  13.    ENDIF
  14.    IF OPTION='Y'
  15.       CLEAR
  16.       MNET=0.00
  17.       OVER_30=0.00
  18.       OVER_45=0.00
  19.       OVER_60=0.00
  20.       MACCT = '    '
  21.       ACCEPT 'What account number ?  ' TO MACCT
  22.       MNAME='                             '
  23.       FIND &MACCT
  24.       STORE NAME TO MNAME
  25.       USE INV
  26.       CLEAR
  27.       @ 10,0 SAY "I'm working on"
  28.       @ 10,15 SAY MNAME
  29.       @ 11,0 SAY '============================================='
  30.       COPY TO TEMP FOR ACCT = MACCT
  31.       USE TEMP
  32.       GO TOP
  33.       SET TALK ON
  34.       SUM NET TO MNET
  35.       SUM NET FOR NEWDATE <= DATE() - 30 TO OVER30
  36.       SUM NET FOR NEWDATE <= DATE() - 45 TO OVER45
  37.       SUM NET FOR NEWDATE <= DATE() - 60 TO OVER60
  38.       SET TALK OFF
  39.       USE CUST INDEX ACCT
  40.       FIND &MACCT
  41.       REPLACE NET WITH MNET
  42.       REPLACE OLD_30 WITH OVER30
  43.       REPLACE OLD_45 WITH OVER45
  44.       REPLACE OLD_60 WITH OVER60
  45.       ?
  46.       @ 10,4 SAY 'looking at'
  47.       @ 13,13 SAY CHR(27)
  48.       @ 13,14 SAY '----------  Total net due'
  49.       @ 15,13 SAY CHR(27)
  50.       @ 15,14 SAY '----------  30 Days past due'
  51.       @ 17,13 SAY CHR(27)
  52.       @ 17,14 SAY '----------  45 Days past due'
  53.       @ 19,13 SAY CHR(27)
  54.       @ 19,14 SAY '----------  60 Days past due'
  55.       ?
  56.       ?
  57.       WAIT 'Press anything... '
  58.    ENDIF
  59. ENDDO
  60. RETURN
  61.